home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 242 / 242.d81 / driving nails (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  506b  |  18 lines
  1. 10510 fori=0to24:poke54272+i,0:next:ct=0
  2. 10520 poke54278,5:rem sus/rel
  3. 10530 poke54277,5:rem att/dec
  4. 10540 poke54276,129:rem noise wave
  5. 10550 poke54295,241:rem res & voice
  6. 10560 poke54293,54:poke54294,28
  7. 10570 reada:rem input hi byte of freq
  8. 10580 readb:rem input low byte of freq
  9. 10590 ifb=-1then10660:rem branch at end
  10. 10600 poke54273,a:poke54272,b
  11. 10610 fort=1to35:poke54296,79:next
  12. 10620 poke54276,128:rem release cycle
  13. 10630 goto10530:rem get new note
  14. 10640 data17,37,19,63,21,154,22,227,25,177,28,214,32,94,34,175,34,255
  15. 10650 data-1,-1
  16. 10660 ct=ct+1:ifct+1<6thenrestore:fort=1to100*ct:next:goto10570
  17. 10670 poke54296,0:rem turn off vol
  18.